(visit-tags-table-buffer): Beware of `t' in

tags-table-list.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 610b225a7da95ddb5a55a01e10d0fdcd3d8183a5..539e4ae57d5e7d21652b9f85924ba5ce5f49f8e6 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -634,9 +634,11 @@ Returns t if it visits a tags table, or nil if there are no more in the list."
                                          tags-table-set-list)))
                          ;; Clear out buffers holding old tables.
                          (dolist (table tags-table-list)
-                           (let ((buffer (find-buffer-visiting table)))
+                           ;; The list can contain items `t'.
+                           (if (stringp table)
+                               (let ((buffer (find-buffer-visiting table)))
                              (if buffer
-                                 (kill-buffer buffer))))
+                                 (kill-buffer buffer)))))
                          (setq tags-table-list (list local-tags-file-name))))
 
                      ;; Recompute tags-table-computed-list.